Type GUI_SplashFactory

	Global firstFactory:GUI_SplashFactory

	Field nextFactory:GUI_SplashFactory

	Function Fetch:GUI_Splash(name:String)
		Local factory:GUI_SplashFactory=GUI_SplashFactory.firstFactory
		While factory
			Local splash:GUI_Splash = factory.CreateSplash(name)
			If splash Then
				Return splash
			End If
			factory = factory.nextFactory
		Wend		
	End Function
	
	Method New()
		nextFactory = GUI_SplashFactory.firstFactory
		GUI_SplashFactory.firstFactory = Self
	End Method

	Method CreateSplash:GUI_Splash(name:String) Abstract

End Type
